10 POKE53280,0:POKE53281,0:PRINT"[147]";
20 POKE55,0:POKE56,96:CLR
22 DV=PEEK(186):IFDV<8THENDV=8
25 GOSUB60000
30 SYS57812"TOOLBOX 92",DV,0:POKE781,0:POKE782,192:SYS65493
40 SYS57812"CRYPTIC 92",DV,0:POKE781,0:POKE782,96:SYS65493
45 PRINT"[147]"
50 SYS49152,7,4,15,7,34,160,12
52 SYS49152,7,2,13,5,31,160,15
54 SYS49152,7,4,13,32,32,101+128,12
60 PRINTTAB(10)"[155][195][210][217][208][212][201][195] [195][210][207][211][211][215][207][210][196]"
62 PRINTTAB(10)"[163][163][163][163][163][163][163] [163][163][163][163][163][163][163][163][163]"
65 PRINTTAB(7)"1] [208]RINT [208]UZZLE
70 [153][163]7)"2] (null)RINT (null)OLUTION
75 PRINTTAB(7)"3] [211]OLVING [201]NSTRUCTIONS
77 [153][163]7)"4] (null)UZZLE VALXPLANATION
79 PRINTTAB(7)"5] [197]XIT"
80 PRINTTAB(5)"[155][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
81 SYS49152,7,19,20,0,39,98,11
82 SYS49152,7,23,24,0,39,98+128,11
83 SYS49152,4,0:POKE198,0
85 SYS49152,3,0,0,1,14,20,160,"[208]RESS 1-5 TO SELECT.
90 [161]K$:[139]K$[178]""[167]85
95 K[178][197](K$):[139]K[179]1[176] K[177]5[167]85
100 [145]K[141]1000,2000,3000,5000,4000
105 [137]85
110 :
1000 [158]49152,10,15,4:[158]49152,6,6,7,6,30,12
1002 [158]49152,3,0,0,1,14,20,160,"(null)RINTER READY?  [Y/N]"
1005 [161]K$:[139]K$[178]""[167]1002
1010 [139]K$[179][177]"Y"[167][158]49152,5,0:[142]
1012 [158]49152,10,4,3
1015 [158]49152,7,20,23,0,39,160,14
1020 [151]214,20:[153]:[153][163]15)"CONT(null)RINTING..."
1025 [158]24576:[158]49152,5,0:[142]
1030 :
2000 [158]49152,10,15,4:[158]49152,6,7,8,6,30,12
2002 [158]49152,3,0,0,1,14,20,160,"(null)RINTER READY?  [Y/N]"
2005 [161]K$:[139]K$[178]""[167]2002
2010 [139]K$[179][177]"Y"[167][158]49152,5,0:[142]
2012 [158]49152,10,4,3
2015 [158]49152,7,20,23,0,39,160,14
2020 [151]214,20:[153]:[153][163]15)"CONT(null)RINTING..."
2025 [158]24576[170]3:[158]49152,5,0:[142]
2030 :
3000 [153]"LIST":[158]49152,13,DV,[198]("\"),"CRYPTIC INSTR 92"
3005 [158]49152,5,0:[142]
3010 :
4000 [158]49152,10,15,4:[158]49152,6,10,11,6,30,12
4002 [158]49152,3,0,0,1,14,20,160,"ATNRE (null)OU (null)URE?  [Y/N]"
4005 [161]K$:[139]K$[178]""[167]4002
4010 [139]K$[179][177]"Y"[167][158]49152,5,0:[142]
4012 [151]55,0:[151]56,160:[156]
4050 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER%:[160]15
4055 [139]ER%[179][177]63[167][128]
4060 [151]646,[194](53281)
4062 [153]"LOADWAITLOAD"[199](34)"HELLO CONNECT"[199](34)",8"
4065 [153]"RUN"
4075 [151]631,13:[151]632,13:[151]633,13:[151]198,3:[128]
4080 :
5000 [153]"LIST":[158]49152,13,DV,[198]("\"),"EXPLANATION 92"
5005 [158]49152,5,0:[142]
5010 :
10000 [159]15,8,15,"S0:CRYPT BOOT 92":[160]15:[148]"CRYPT BOOT 92",8:[128]
60000 [153]"LOAD":Z$[178]" PRINT#                                      ":[151]214,10:[153]
60010 [153]" LISTFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE":[129]I[178]0[164]11:[153]Z$:[130]
60020 [153]" POKEPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPRINT#"
60030 Z$(0)[178]"LEN (null) (null) (null) (null) RIGHT$ LEN   LEN (null) (null) (null) VAL (null)   # 9 2"
60035 Z$(1)[178]"BY ASCENDER (null)UCKER & PEEKARBARA (null)CHULAK"
60040 Z$(2)[178]"(null)1.0 (LEN) 1992 BY (null)OFTDISK, RIGHT$NC."[170][199](13)
60050 Z$(3)[178]"(null)HIS PROGRAM IS THE COPYRIGHTED WORK
60060 Z$(4)="OF [211][207][198][212][196][201][211][203] [208][213][194][204][201][211][200][201][206][199].  [201]T IS NOT"
60070 Z$(5)="SHAREWARE OR IN THE PUBLIC DOMAIN."
60080 Z$(6)="[210]EPORT ILLEGAL DISTRIBUTION OF":Z$(7)="THIS PROGRAM BY CALLING"
60090 Z$(8)="1-800-831-2694 OR 1-318-221-8718.":POKE214,12:PRINT
60100 FORI=0TO8:PRINTTAB(20-(LEN(Z$(I))/2))""Z$(I):NEXT:RETURN